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DIRECTORY 

AUoDefs: FROM "altodefs". 
BcdOefs: FROM "bcddefs". 
SegmentDefs: FROM "segmentdef s", 
SymbolTableDefs: FROM "symboUabledef s"; 

ListerDefs: DEFINITIONS « 
BEGIN 

BYTE: TYPE = AUoDefs. BYTE; 

-- from OpTable 

instlength: PROCEDURE [BYTE] RETURNS [[0..3]]; 
pushstack: PROCEDURE [BYTE] RETURNS [[0..7]]; 
popstack: PROCEDURE [BYTE] RETURNS [[0..7]]; 

— from OpNames 

OpNames: PROGRAM; 

instname: PROCEDURE [BYTE] RETURNS [STRING]; 

Unknownlnstruction: SIGNAL[name: STRING]; 

instcode: PROCEDURE [name: STRING] RETURNS [i: BYTE]; 

DeleteArray : SegmentDefs .SwappingProcedure; 

SetupArray: PROCEDURE; 

IncorrectVersion: SIGNAL; 

Load: PROCEDURE [STRING] RETURNS [codeseg, symbolseg: SegmentDefs . FileSegmentHandle]; 

NoCode, NoSymbols. NoFGT: SIGNAL; 

WriteFilelD: PROCEDURE [STRING]; 

-- known PROGRAM modules 
BcdList: PROGRAM; 
ListCode: PROGRAM; 
ListSymbols: PROGRAM; 
Listlnterface: PROGRAM; 
ListFrame: PROGRAM; 

END. of listcode 


